﻿Imports System.Data.SqlClient

Public Class frmTiepNhanKHThueNha

    Private Sub btnThem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnThem.Click
        If Not dtNgayThue.Text = "" Then
            If Not txtHoTenKhachThue.Text = "" Then
                If Not txtPhone.Text = "" Then
                    Dim sqlparameters(3) As SqlParameter
                    Dim QLChuNha As KhachHangThueNhaDTO = New KhachHangThueNhaDTO()
                    QLChuNha.strHoTen = txtHoTenKhachThue.Text
                    QLChuNha.strSoDienThoai = txtPhone.Text
                    QLChuNha.dtNgayThue = dtNgayThue.Value
                    QLChuNha.iMaNhaThue = ComboBoxEx1.Text


                    Dim para0 As New SqlParameter("hoten", SqlDbType.NVarChar)
                    para0.Direction = ParameterDirection.Input
                    para0.Value = QLChuNha.strHoTen
                    sqlparameters(0) = para0

                    Dim para1 As New SqlParameter("sodienthoai", SqlDbType.VarChar)
                    para1.Direction = ParameterDirection.Input
                    para1.Value = QLChuNha.strSoDienThoai
                    sqlparameters(1) = para1

                    Dim para2 As New SqlParameter("ngaythue", SqlDbType.Date)
                    para2.Direction = ParameterDirection.Input
                    para2.Value = QLChuNha.dtNgayThue
                    sqlparameters(2) = para2



                    Dim para3 As New SqlParameter("manhathue", SqlDbType.Int)
                    para3.Direction = ParameterDirection.Input
                    para3.Value = QLChuNha.iMaNhaThue
                    sqlparameters(3) = para3


                    KhachHangThueNhaBUS.Insert(sqlparameters)
                    MessageBox.Show("Nhập thông tin thuê nhà thành công !", "Thông báo", MessageBoxButtons.OK)




                Else
                    MsgBox("Bạn chưa nhập vào số điện thoại ", MsgBoxStyle.Critical, "Thông báo!")

                    txtPhone.Text = Focus()

                End If
            Else


                MsgBox("Bạn chưa nhập vào họ tên ", MsgBoxStyle.Critical, "Thông báo!")

                txtHoTenKhachThue.Focus()
            End If
        Else
            MsgBox("Bạn chưa nhập vào ngày thuê ", MsgBoxStyle.Critical, "Thông báo!")

            dtNgayThue.Focus()
        End If
    End Sub

    Private Sub btnHuy_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnHuy.Click
        Me.Close()
    End Sub

    Private Sub frmTiepNhanKHThueNha_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim manhathue As New DataTable()
        manhathue = ThongTinNhaBUS.GetAll()
        ComboBoxEx1.DataSource = manhathue
        ComboBoxEx1.DisplayMember = "MaNha"
    End Sub
End Class